﻿

Public Class cGossipMenu
    Private _Row As SortedList(Of String, sMysqlItem)

    Public Sub New(conn As MySQL, entry As UInt32)
        If IsNothing(conn) Then Throw New ArgumentNullException("cGossipMenu: conn is nothing")
        Dim sql As String = "SELECT * FROM gossip_menu WHERE entry=" & entry & ";"
        _Row = conn.ReadRow(sql)
    End Sub

    Public Property entry As UInt32
        Get
            If _Row.ContainsKey("entry") Then
                Return _Row.Item("entry").Value
            Else
                Return 0
            End If
        End Get
        Set(value As UInt32)
            Stop
        End Set
    End Property
    Public Property text_id As UInt32
        Get
            If _Row.ContainsKey("text_id") Then
                Return _Row.Item("text_id").Value
            Else
                Return 0
            End If
        End Get
        Set(value As UInt32)
            Stop
        End Set
    End Property

End Class
